home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilcompat.el.z / ilcompat.el
Encoding:
Text File  |  1998-05-21  |  2.1 KB  |  68 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilcompat.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.8
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
  11. ;;;               1996 Marco Antoniotti and Rick Campbell
  12. ;;;
  13. ;;; Other authors' names for which this Copyright notice also holds
  14. ;;; may appear later in this file.
  15. ;;;
  16. ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
  17. ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
  18. ;;; mailing list were bugs and improvements are discussed.
  19. ;;;
  20. ;;; ILISP is freely redistributable under the terms found in the file
  21. ;;; COPYING.
  22.  
  23.  
  24. ;;;============================================================================
  25. ;;; Global definitions/declarations
  26.  
  27. (defconst +ilisp-emacs-version-id+
  28.     (cond ((string-match "XEmacs" emacs-version)
  29.        'xemacs)
  30.       ((string-match "Lucid" emacs-version)
  31.        (if (string-match "^19.[0-7][^0-9]" emacs-version)
  32.            'lucid-19
  33.            'lucid-19-new))
  34.       ((string-match "^19" emacs-version)
  35.        'fsf-19)
  36.       (t 'fsf-18))
  37.   "The version of Emacs ILISP is running in.
  38. Declared as '(member fsf-19 fsf-19 lucid-19 lucid-19-new xemacs).
  39. Set in ilcompat.el.")
  40.  
  41. (defconst +ilisp-emacs-minor-version-number+
  42.     (cond ((eq +ilisp-emacs-version-id+ 'fsf-18) 59)
  43.       ((or  (eq +ilisp-emacs-version-id+ 'lucid-19)
  44.         (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  45.         )
  46.        12)                ; Does emacs-minor-version work?
  47.       ((eq +ilisp-emacs-version-id+ 'xemacs) 14)
  48.       (t emacs-minor-version)))
  49.  
  50.  
  51. ;;;============================================================================
  52. ;;; Code
  53.  
  54. (cond ((or (eq +ilisp-emacs-version-id+ 'lucid-19)
  55.        (eq +ilisp-emacs-version-id+ 'lucid-19-new))
  56.        (load "illuc19"))
  57.       ((eq +ilisp-emacs-version-id+ 'xemacs) (load "ilxemacs"))
  58.       ((eq +ilisp-emacs-version-id+ 'fsf-19) (load "ilfsf19"))
  59.       ((eq +ilisp-emacs-version-id+ 'fsf-18) (load "ilfsf18"))
  60.       )
  61.  
  62. ;;;============================================================================
  63. ;;; Epilogue
  64.  
  65. (provide 'compat)
  66.  
  67. ;;; end of file -- compat.el --
  68.